Top 10k strings from National, The (1988)(D&H Games).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /

Back to the directory listing

   5 ));" ";P$(Q(RC,
   3 T(G(X(Z(N),
   3 RA=RA+(G(X(I,
   3 RA=RA+(G(C(ETD,
   3 "7"+(C(ETD,
   3 "2";U$(RC);" ";P$(Q(RC,
   3 "2")=U(X(Z(
   2 SCO=SCO+RA:
   2 SCO=SCO+RA
   2 ;"ENTER No OF HORSE TO LOOK AT    ":
   2 ;"                                ":
   2 "95")*(G(I,
   2 "7")+I(I):
   2 "4")=Q(RC,
   2 "4")=D(RC,
   2 "3525"-(A<
   2 "25";"      ";
   2 "21";N$(X(I,
   2 "21";":ODDS      ";
   2 "20";"PRICE ";:
   2 "20";"HORSE No ";B(
   2 "2")=O(E):
   2 "2")=G(X(I,
   2 "10000"+(D(I,
   2 "10")="JUMP  ")*
   1 hhhjjjjjhhhhhhhhhhhhoooooooooooojjjjjjjjjjjjjjhhhhhooooooooooooojjjjjjjjjjjjjjlhhhhooooooooooooojjjjjjjjjjjjjjjhxxiiiiijjooooooohhhhhhhhhhhhhhhhxyAAAiABjjhhhhhhoooooohhhXXXxiiiiAAAAAABjjhhhhhhoooooohhhppXXXXxihiiAAJBjhhhhhhhohhhhhhhx00XXXxxxiiiijjBBx88X888hhhhhhhhx0ppXXXXXHHHhjBBxx88X888iihhhhhh08hhh8XXX88xBBBBx888XX88iiiiiii00hhhh XXXXXXxBB88888XXXXHHHHHHH80HHHHHXXX88X88pp888XXXXX```````````````XX88X8ppp888 XXX8               XX88X8pppx       ```````````````XXXXX8pp```````````````````````XX`````ff`````````             
   1 Z$=Z$+" HORSE"
   1 Y$=N$(C(IN,
   1 UUUUUUUUUUUUUU_
   1 TOP=TOP+RB
   1 TOP-(RB+RA):
   1 STARTING BID
   1 RB=RB+(RA=
   1 RA=RA-(RA=
   1 RA=RA+O(I)
   1 RA=RA+(F$(C(TH,
   1 PRINCE CHARLESKING GEORGE IVFLYING CHILDERCAREL ECLIPES THE NOVEMBER  THE DERBY     CHARTERHOUSE  FLYING CHILDER1000 GUINEAS  THE LINCOLN   THE MACASON   YORKSHIRE     CHARITY GOLD  THE ST LEDGER TOTE GOLD     CHARTERHOUSE  TSAREVICH     SAPLING MAIDENSOUTHFEET     DUNSTALL      ST LEDGER     THE OAKES     D&H BANK CUP  THE GOLD CUP  CATHCART      1000 GUINEAS  CHAMPAGNE     GRAND NATIONAL
   1 POLISH  MASKEEN EYELIGHTCONVICT IMPANY  RESHA   ROCKY   FANMAN  SEASKILLMURHAF  COOL SUNISSEN   FLOYD   LECTOR  HARLEY  DEL MAR PURE T  MERWOOD HOW NOW WAZAN   NERINA  KINGTOR SHOUT   SKY CAT ALL FAIRGREER   INHERIT AMENABLECANTINA MEGABIT BRUNAN  OWEN    TAXIADS MAD MAX COWLEY  RUNAWAY MY REEF AJAL    RED RUM GRITTER JAZETAS BELL BOYVALTAKA NOTUS   DEBDEN  ALCEBAR GOMEZ   PETROC  SUN DOG PRADEL  I.O.U.  CARMELS ZOOMIN  NATELL  JESTON  MR MOSS KEYCORN DARKSIDEACTIA   JEZAIL  SIDVIC  LUCKSIN DROWSY  BAD CAT PANIC   VELESO  CUMREW  UP WELL SAY YOU ACLAIM  MISS IT FARMER  DABBER  
   1 PK=PK-(PK=
   1 PIC       
   1 O(Z(N));"/1"
   1 O(RU);"/1"
   1 O(I)=O(I)*RA
   1 NOVICESTAKESHURDLECHASE MAIDENCUP         SOFT  GOOD  FIRM  FLAT  JUMP  
   1 NFO       
   1 M.PIPE   F.WINTER J.EDWARDSA.MOORE  J.GIFFORDG.BALDINGN.CRUMP  D.BARONS T.FOSTER C.LAMB   E.GRAY   W.JONES  D.SMITH  F.WALWYN S.MELLOR 
   1 K$=N$(X(I,
   1 K$=K$+" ":
   1 J.QUINN  P.TUCK   S.NIGHT  R.ROWE   C.GRANT  R.LAMB   M.DWYER  C.SMITH  G.MOORE  T.MORGAN P.LEACH  S.CAUTHENA.WEBB   P.HOBBS  L.PIGGOT T.WALL   K.JONES  M.LOWE   R.CRANK  C.MANN   P.EDDERY B.HALES  P.SHORT  F.GRAY   J.DESALIST.HUGGARDP.MCMANUSW.CARSON C.CULLEN C.RUTTER 
   1 J$(X)=J$(I):
   1 INISHING ORDER  
   1 ID ON A HORSE           
   1 HR2       
   1 HOOSE HORSE 
   1 FE=FE-(FJ=
   1 FE=FE-(FE>
   1 F$(I,Z)="F":
   1 F$(A)="000000"
   1 EXT RACE    "  
   1 EXT PAGE       
   1 EXT PAGE  
   1 DIT HORSE  "
   1 DI=DI-(FJ=
   1 DI=DI-(DI>
   1 COL4=COL4-(COL4=
   1 COL4=COL4+
   1 COL3=COL3-(COL3=
   1 COL3=COL3+
   1 CNT=CNT-(CNT=
   1 CKEY HIRE";
   1 ASCOT       HAYDOCK     CHEPSTOW    DONCASTER   KEMPTON     NEWBURY     KELSO       SANDOWN     WINDSOR     WORCESTER   DEVON & EX  FOLKESTONE  HEXHAM      CATTERICK   AINTREE     
   1 ANK LOAN               
   1 ;U$(RC);" ";P$(Q(RC,
   1 ;T$(E);" `";TOP:
   1 ;J$(S);"  WILL COST  `";
   1 ;I;" ";N$(M(
   1 ;"YOUR BID":
   1 ;"WHICH RACE ?":
   1 ;"WHICH JOCKEY":
   1 ;"WHICH HORSE":
   1 ;"WHICH HORSE TO BID ON":
   1 ;"WHICH HORSE ? ":
   1 ;"WHICH HORSE 1-";P(
   1 ;"WHICH HORSE ":
   1 ;"WHICH GOING 
   1 ;"WEEKLY COSTS"
   1 ;"WEEK.";EC;" ";
   1 ;"TRAIN ON 
   1 ;"TIPSTER SAYS BET ON             "
   1 ;"STEWARD'S";
   1 ;"SOLD TO ";T$(E);" FOR `";TOP:
   1 ;"SELL WHICH HORSE ":
   1 ;"PS TRAINER  1  2  3  PTS PRIZE  "
   1 ;"PLEASE WAIT":
   1 ;"NO. NAME   FORM DIST GO  TP GD A"  
   1 ;"NEXT : ";P$(FJ+
   1 ;"HOW MUCH":
   1 ;"HORSE ENTERED : "
   1 ;"HORSE ";A;" NEW NAME (8 MAX)"
   1 ;"GRADE   :";D(RC,
   1 ;"ENQUIRY";
   1 ;"DISTANCE:JUMP(
   1 ;"DISQUALIFIES":
   1 ;"D & H BANK"
   1 ;"BID AGAIN Y/N"
   1 ;"BANK OFFERS `150000 Y/N"
   1 ;"(NO.)   RACE MEETINGS     ";
   1 ;" :   ------ VACANT ------      ";
   1 ;" 1=WIN   2=STRAIGHT   3=REVERSE ":
   1 ;" ";T$(G(X(Z(N),
   1 ;" ";T$(G(X(RU,
   1 ;"    YOUR JOCKEY : ";J$(X(B,
   1 ;"     ";T$(P(
   1 ;"       THE WINNER OF THE        ";
   1 ;"       PRESS C TO CONTINUE      "
   1 ;"         PLEASE WAIT            "
   1 ;"          PLEASE WAIT           ":
   1 ;"             ":
   1 ;"                  ":
   1 ;"                          ":
   1 ;"                                "
   1 ;"                                                                "
   1 ),K)=F$(X(I,
   1 ));" `";B:
   1 ));" RATING ";PER;"%"
   1 ));" BET PAID OUT
   1 ));" : ";N$(X(RU,
   1 ));" : ";J$(X(RU,
   1 ));" ";P$(Q(ED,
   1 ));"  STABLES        ";
   1 ));"     "
   1 "STRAIGHT":
   1 "REVERSE":
   1 "9";"P CHANGE PAPER";
   1 "9";"M MENU"
   1 "9";"I CHANGE INK";
   1 "9";"HORSE AUCTION";
   1 "9";"END OF SEASON";
   1 "9";"BANK `";
   1 "8";"YOU ARE BANKRUPT":
   1 "8";"RUNNERS & RIDERS";
   1 "70"+(Q(RC,
   1 "70"+(Q(EC,
   1 "70"+(P$(Q(ED,
   1 "70"+(P$(Q(EC,
   1 "70"+(G(X(A,
   1 "7";"LOAD OLD GAME  Y/N"
   1 "7";"BOOKMAKERS RETURN";
   1 "7")=T(G(X(Z(N),
   1 "7")+D(RC,
   1 "7")+(SPT=
   1 "670"-(ED<
   1 "65247",D(RC,
   1 "65243",FE:
   1 "65242",DI:
   1 "65240",D(RC,
   1 "65003"+((I-
   1 "65000")=G
   1 "65000"),X-
   1 "65000"),D(RC,
   1 "64999"+((P(
   1 "6";N;" PRIZE OF `";D(RC,
   1 "6";N$(X(RB,
   1 "6";"START ORIGINAL TAPE":
   1 "6";"START ORIGINAL TAPE"
   1 "6",N)=G(M(
   1 "6")=T(G(X(Z(N),
   1 "5";"TYPE      : ";P$(Q(ED,
   1 "5";"START SAVED GAME TAPE":
   1 "5";"HORSES GOING TO START":
   1 "5";"HORSE";
   1 "5";"HORSE ENTERED IN RACE BY";
   1 "5";"GOING     : ";P$(D(ED,
   1 "5";"ENTRIES   : ";D(ED,
   1 "5";"DISTANCE  : ";Q(ED,
   1 "5";"COURSE    : ";C$(D(ED,
   1 "5";"3RD PRIZE : `";D(ED,
   1 "5";"2ND PRIZE : `";D(ED,
   1 "5";"1ST PRIZE : `";D(ED,
   1 "5",N)=G(M(
   1 "5")=G(X(Z(N),
   1 "4505"-(RZ=P(
   1 "4502"+(RA=
   1 "4501"-(E=P(
   1 "4500"+(RA=
   1 "4497"-(B>P(
   1 "4";N$(X(A,
   1 "4";"WEEKS LEFT    : ";
   1 "4";"VET BILLS     : `";I(
   1 "4";"TRAINING COST : `";I(
   1 "4";"SUPERTAX      : `";
   1 "4";"STUD FEE'S    : `";I(
   1 "4";"RUNNING COST  : `";
   1 "4";"No ";Z(N);
   1 "4";"JOCKEY COST   : `";I(
   1 "4";"FEEDING COST  : `";I(
   1 "4";"ENTRY FEE     : `";I(
   1 "4";"EMPLOYEE COST : `";I(
   1 "4";"BANK REPAYMENT: `-";I(
   1 "4";"BANK INTEREST : `";I(
   1 "4";"BANK          : `";
   1 "4",N)=G(M(
   1 "4")=RA+(G(M(
   1 "4")=C(DED,
   1 "3960"-(U(S,
   1 "3941"-(S<
   1 "3934"-(S<
   1 "3575"-(I=
   1 "3551"-(A<
   1 "3530"-(P(
   1 "3505"+(X(I,
   1 "3352"+(U(X,
   1 "3330"+(I=Z)
   1 "3300"-(WI=
   1 "30";G(C(I,
   1 "29";":";U(I+
   1 "28";G(C(I,
   1 "27";G(X(A,
   1 "260"+(I=EM)*
   1 "26";"AGE":
   1 "26"-U(X(I,
   1 "25000"+(D(I,
   1 "25";" ";P$(Q(I,
   1 "24";"`";T(I,
   1 "24";"WEEK ";RC
   1 "22";"RACE";
   1 "21";P$(G(M(
   1 "21";P$(G(C(I,
   1 "21";P$(D(EC,
   1 "21";N$(X(P(
   1 "21";G(X(A,
   1 "21";"FALLERS"
   1 "21";": ";J$(X(Z(N),
   1 "200"+(U(X(P(
   1 "200"+(U(S,
   1 "20";P$(RA)(
   1 "20";P$(G(X(A,
   1 "20";J$(I+
   1 "20";"TYPE";
   1 "20";"STAKE `";
   1 "20";"GOING";
   1 "20";"DIST";
   1 "20";"D&H BOOKIES";
   1 "20";"BET:";:
   1 "2";T$(I);
   1 "2";N$(C(I,
   1 "2";"INJURY TO       : ";N$(C(IN,
   1 "2";":";F$(X(RU,
   1 "2",N)=C(TH,
   1 "2",N),Z)="F"
   1 "2",N),Z)="0"
   1 "2",N),Z))
   1 "2",I));" ";F$(M(
   1 "2"+N)=T(G(X(Z(N),
   1 "2")=TYP)*
   1 "2")=G(X(Z(N),
   1 "2");" RUN";
   1 "2");" RUN  : COURSE :";C$(D(RC,
   1 "2")-(G(I,
   1 "2")+(G(I,
   1 "2"))=J$(I+
   1 "2"))=J$(I));
   1 "2"));"     ";
   1 "2"))-(G(I,
   1 "2"))*D(RC,
   1 "1E4")*(I(
   1 "19";"BANK `";
   1 "1885"-(F<
   1 "1849"-(X(E,
   1 "1848"-(E<
   1 "1844"-(X(E,
   1 "1843"-(E<
   1 "1842"+(A>
   1 "1841"-(A<
   1 "18";U$(RC);
   1 "18";T$(P(
   1 "18";Q(EC,
   1 "18";P$(Q(RC,
   1 "18";G(C(I,
   1 "18";"TYPE    : ";P$(Q(RC,
   1 "18";"STAKE `";
   1 "18";"RUNNERS : ";D(RC,
   1 "18";"RUNNE
   1 "18";"LEAGU
   1 "18";"GOING   : ";P$(D(RC,
   1 "18";"DISTANCE: ";Q(RC,
   1 "18";"BETS  ";B(
   1 "1777"+(B(
   1 "17";N$(C(B,
   1 "17";"RUNNERS   :";D(EC,
   1 "17";"NON RUNNER":
   1 "16";N$(C(B,
   1 "16";" NON RUNNER  ":
   1 "16";" ";P$(Q(I,
   1 "16";" ";P$(Q(ED,
   1 "16"-T(G(X(I,
   1 "15000"+(D(I,
   1 "14";"FORM";
   1 "1350"-(N=
   1 "13";O(I);"/1":
   1 "13";F$(X(A,
   1 "13";"EVENS"
   1 "13";":";U(I,
   1 "12"-D(RC,
   1 "1121"-(S<
   1 "1100"-(A<
   1 "11";F$(C(I,
   1 "11";"STOP TAPE":
   1 "11";"HAS BEEN DESTROYED":
   1 "11"+(G(X(A,
   1 "1062"-(TH<
   1 "1048"-(T=P(
   1 "10";"TO ";T$(G(X(Z(N),
   1 "10";"COURSE INFO":
   1 "10";":WEIGHT ";G(X(Z(N),
   1 "10";":WEIGHT ";G(X(RU,
   1 "10";":";N$(X(Z(N),
   1 "10");"RACE : WEEK NO.";RC
   1  CHANGE JOCKEY  
   1                   ````````````````````````````````888888888888````````````````````800000000008 8                  800000000008 x                  000000000088`x``````````````````000000000088````````````````````088888888888````````````````````:
   1